home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / More Source / C⁄C++ / Xconq 7.0d37 / source / lib / tank.g < prev    next >
Text File  |  1993-03-30  |  769b  |  40 lines
  1. (game-module "tank"
  2.   (blurb "Simple tank battles")
  3.   (variants
  4.     (see-all false)
  5.     (world-seen false)
  6.     (world-size)
  7.     )
  8.   )
  9.  
  10. (terrain-type plains (color "green") (char "+"))
  11. (terrain-type hills (color "brown") (char "^"))
  12.  
  13. (unit-type tank (image-name "tank") (char "T")
  14.   (start-with 1)
  15.   (acp-per-turn 2)
  16.   (hp-max 10)
  17.   )
  18.  
  19. (table hit-chance
  20.   (tank tank 100)
  21.   )
  22.  
  23. (table damage
  24.   (tank tank 1d4)
  25.   )
  26.  
  27. (add tank vision-range 6)
  28.  
  29. (add t* occurrence (50 1))
  30.  
  31. ;(set synthesis-methods (remove make-fractal-percentile-terrain synthesis-methods))
  32. ;(set synthesis-methods (append make-random-terrain synthesis-methods))
  33. ;(set synthesis-methods '(make-random-terrain make-countries))
  34. ;(print synthesis-methods)
  35.  
  36. ;;; Don't want the world to wrap around.
  37.  
  38. (world 10000)
  39.  
  40.